unit UParametrosPagfor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UFomCadastro, DBClient, Provider, DB, DBTables, Menus, StdCtrls,
  ComCtrls, DBCtrls, Buttons, Grids, DBGrids, ExtCtrls, Mask;

type
  TFParametrosPagfor = class(TFormCadastro)
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure dsCadastroDataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FParametrosPagfor: TFParametrosPagfor;

implementation

{$R *.dfm}
uses UGeral, UDmFinanceiro, UDmGestao;

procedure TFParametrosPagfor.FormCreate(Sender: TObject);
begin

  QCadastro.Close;
  QCadastro.SQL.Clear;
  QCadastro.SQL.Add('SELECT * FROM PARAMETRO WHERE PARAMETRO.COD_EMPRESA = '+IntToStr(Codigoempresa));
  QCadastro.Open;

  inherited;  

  BtnIncluir.Visible:=false;
  BtnExcluir.Visible:=false;
end;

procedure TFParametrosPagfor.dsCadastroDataChange(Sender: TObject;
  Field: TField);
begin
  inherited;
  BtnIncluir.Visible:=false;
  BtnExcluir.Visible:=false;
end;

end.
